Softwarová Záchrana 3/Softwarova-zachrana-3.bin/Xteq X-Setup/xqdcXSP-Setup-EN.exe/{app}/plugins/XQ MSO2003 Task Pane 1.xpl

Text File | 2004-01-17 | 2KB | 47 lines

"FILE"="Xteq Systems X-Setup Plugin 6.0"
"TYPE"="6"
"COUNT"="1"
"UIPATH 1"="Program Options\Microsoft Office\MS Office 2003\Common"
"NAME"="Task Pane Enforced Visibility"
"VERSION"="1.00"
"LANGUAGE"="VBScript"
"TEXT 1"="Enforce showing of Task Pane even if turned off"
"DESCRIPTION 1"="Each Office program shows by default a "Task Pane" which will automatically show the tasks you can currently perform. Since this new Task Pane is a well-working feature of Office, an administrator can enforce the display of it.
"DESCRIPTION 2"="If this happens, the user can still turn off the Task Pane inside Options, but Office does not respect this setting and will show the Task Pane.
"DESCRIPTION 3"="Simply turn this setting on if the Task Pane should always be visible, regardless of the setting inside the Options dialog or turn it off to make sure the user can select for itself if it should be visible or not.
"AUTHOR"="Xteq Systems"
"CONTACTURL"="http://www.x-setup.net/"
"COPYRIGHT"="Copyright ⌐ 2004 Xteq Systems"
"COMMENT 1"=""


     sV="HKCU\Software\Microsoft\Office\11.0\Common\General\DoNotDismissFileNewTaskPane"
sV_Check="HKCU\Software\Microsoft\Office\11.0\"

Sub Plugin_Initialize
 if RegPathExists(sV_Check) then
    i=RegReadValue(sV)
    if i=1 then SetUIElement 1,true
 else
    Call Disable()
 end if
End Sub

Sub Plugin_CheckData(ElementIndex)
End Sub

Sub Plugin_Apply(ElementIndex,ElementSubIndex)
 b=GetUIElement(1)
 if b=true then
    Call RegWriteValue(sV,1,2)
 else
    if RegValueExists(sV) then Call RegDeleteValue(sV)
 end if
End Sub

Sub Plugin_Terminate
End Sub